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899 ‘ SUBROUTINE DR780 (LUN) 
: ; Version: *v04-000' | A 
5 CORR eee eee AAEEAAAAAAAAAARAAAEAAAAAAEAAAAHHEKEREHATHE TETRA TETeAKTeAAAHeS AR 
Ce % 
C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
8 ” ALL RIGHTS RESERVED. . 
11 C* THIS err a gt ae UNDER A LICENSE AND MAY BE USED AND COPIED t 
\ C* ONLY IN ACCORDANCE WITH THE TERMS OF reven ait NSE AND add THE * 
1 C* INCLUSION OF THe ABOVE gtd tad NOTICE. THIS soft ARE OR ANY OTHER * LA 
0014 C* COPIES THER = Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Bog > TRANSFERRED. te 
* 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Bose es CORPORATION. * FU 
® 
0092 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
35 BS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
Bo 2 Se eiieiaameninndeiaeeieatineiinadesaiabemiaemmensimesiasiiies atmaiieiaianendaeiael Tianna 
0027 C co 
0028 C 
ot 34 C 
ets : AUTHOR BRIAN PORTER CREATION DATE 8=MAY-1979 
003 
003 C++ 
it : Functional description: 
ta] : This module display entries for the DR780. 
sit : Modified by: co 
0040 C v03-004 peneee’ Sharon A. Reynolds, 28-Mar-1984 
opel : Changed the call to “UCBSL _OWNUIC to ORBSL OWNER. 
0028 C v03-003 SARO0071 Sharon A. Reynolds, 20-Jun-1983 
ng: C Changed the carrtege control in the ‘format’ statements 
5 : for use with ERF. 
boc? C v03-002 SARO038 Sharon A. Reynolds, 88-Jun-1983 
98 : Removed brief/cryptic support. | 
6050 C v03-001 BP0003 Brian Porter, 20-AUG-1982 
i Minor edit. | 
26 Cee 
Lee | 
55 Include *SRC$:DR32COM.FOR /NOLIST‘ | 
106 INCLUDE ‘SRC$:MSGHDR.FOR /NOLIST‘ 
16 INCLUDE *SRC$:DEVERR.FOR /NOLIST' 
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INTEG 
0 INTEGER®4 
0 INTEGER®4 
0 INTEGER®4 
0 INTEGER®4 
0285 INTEGER®4 
0286 INTEGER®4 
028 INTEGER®4 
0288 INTEGER®4 
0289 INTEGER®4 
0591 
029¢ EQUIVALENCE 
029 EQUIVALENCE 
0294 EQUIVALENCE 
0 95 EQUIVALENCE 
36 EQUIVALENCE 
029 EQUIVALENCE 
0298 EQUIVALENCE 
i344 EQUIVALENCE 
0 EQUIVALENCE 
0301 EQUIVALENC 
030¢ EQUIVALENCE 
030 EQUIVALENCE 
L 
0304 EQUIVALENCE 
0306 
$30 PARAMETER 
308 PARAMETER 
PARAMETER 
10 PARAME T 
11 PARAMETER 
1 AMET 
15 CHARACTER®10 
V1DR_UT 
31 DATA 1DR 
13 
19 CHARACTER®31 
20 DATA  V2DR_UT 
0301 DATA V2DR7 
322 DATA = V2DR~ 
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DR780 UTILITY REGISTER 


CALL LINCHK (LUN,1) 


WRITECLUN,25) DRUTL 
25 FORMAT(’ ',78,"DR UTIL’, T24,728.8) 


FIELD = LIBSEXTZV(0,8,DR_UTL) 
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OC 
00 
0: 
00 
60 
0d 
00 
0d 
0d 
00 
00 
0d 
00 
00 
00 
00 


} 
90 
ry IF (FIELD .LE. "FB°X) THEN 
3g CALL LINCHK (LUN,2) 
0394 
0395 c 
0 BS c 2*s complement value and Osby — rate in Mbytes. 
039 c The value 5 (maximum) = 8 Mbytes. 
0398 c 
0399 
po} field = jidim(256, field) 
0 ¢ 
oc08 c Use Table 3-9 dr780 users guide formulae to calculate data rate 
c 
0405 
Rens float = floatj(field) 
040 
rts float = 40/float 
0410 c 
0411 c Calculate clock period. Since 32 bits are transfered at a time 
Seis c then the number of micro-seconds in one second are divided 7 
1 € the number of bytes transfered in one second to obtain the clock 
14 Cc period. 
1? c 
Hi float = (1024*1024) / ((float*102421024)/4) 
i WRITE CL UM, 26) FLOAT 
, 26 FORMA 140, "PERIOD = *,F<COMPRESSF (FLOAT,1)>.1,°. MICRO/SEC') 
c 
§ c Calculate the Kbyte data rate. 
Cc 
5 
$ float = floatj(field) 
float = (40/float)*1024 
waite 27) FLOA 
er . FORMA (ene 140 LORANSFER RATE = 
2 1 F<CORPRESSF (FLOAT,2)>.2,°. xB/$EC* ) 
ENDIF 
5 CALL OUTPUT (LUN,DR_UTL,VIDR_UTL,11,11,11,°0") 
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7 CALL OUTPUT (LUN,DR_UTL,V2DR_UTL,25,25,31,'0") 
C 
re | DR780 WCS REGISTERS 
a8 
4 D0 40 1 = 1,3 
44 


45 FIELD = LIBSEXTZV(0,31,DR_WCS(1)) 
4 IF (FIELD .NE. 0) THEN 
49 CALL LINCHK (LUN,1) 
3 WRITE LUN, 30) 1,DR_ wCS( 
g 30 ''78,'bR QCs’, 11.126, 28.8) 
23 ENDIF. 
35 40 CONTINUE 
7 ae 
0658 «OC DR780 SBI ADDRESS REGISTER 
0459 «OC 
0460 
0461 CALL LINCHK (LUN,1) 
be6$ WRITECLUN, 50) DR 
0464 50 18, ORB BA',124,78.8) 
Oéeg FIELD = LIBSEXTZV(28,2,DR_BA) 
046 
04 8 CALL LINCHK (LUN,1) 
0270 IF (FIELD .€Q. 0) THEN 
0471 
047 WRITE (LUN ,05) SILO_DIR 
0475 65 FORMAT(' °,740,A15;'= SBI READ') 
a ELSE IF (FIELD .€0. 3) THEN 
7 WRITE(LUN,70) SILO_DIR 
28 70 FORMAT(' §,140,A15;'= SBI WRITE") 
ENDIF 
ee 
¢ DR780 BYTE COUNT REGISTERS 
5 DO 100 I = 1,2 
CALL LINCHK (LUN,2) 
WRITE CL 80) 1,DR_BC(1),BYTE_COUNT(I) 
90 80 (eer, CBR Beit: 124,78.8-/, 
91 WneOLA AB, y oite COUNT) 
38 CONTINUE 
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DR780 COMMAND ADDRESS REGISTERS 


dO 150 1 = 1,2 


FIELD = JISHFT(FIELD,2) 


ww 
ae 


160 CONT INUE 
ENDIF 


| 
| 
546 «= 1165S «CONTINUE | 
} 
} 
} 
| 
| 
| 


DR780 STATUS LONGWORD 


| 
| 
FIELD = LIBSEXTZV(0,28,DR_CA(I)) 
5 
03 CALL LINCHK (LUN,3) 
050 WRITE(LUN,120) 1,DR_CACI),J,FIELD 
0508 120 FORMAT ES to. aR ERS 17 ebee D6C8 /, 
509 1 140,"LAST COMMAND ADDRESS EXECUTED 1D',11./, 
9510 2 T40;"LONGWORD ADDRESS = ',78.8) 
O1¢ FIELD = LIBSEXTZ2V(28,4,DR_CA(I)) 
0514 CALL SBI_COMMAND (LUN,FIELD) 
0516 150 CONTINUE 
0517 
0518 ~3«¢ 
0519 C DR780 WRITE DATA REGISTERS 
0521 
05 : DO 165, = 1,2 
05 4 FIELD = LIBSEXTZV(28,4,DR_CA(J)) 
82 6 IF (FIELD .€Q. SBI_FUNC2 
05 .OR. 
05 8 FIELD .€Q. SBI_FUNC7 
05 4 FIELD .€0. SBI_FUNC11) THEN 
055¢ DO 160,1 = Jee2,(Jee2) + 2 
334 IF (VIDR_WO(I1) .NE. '*") THEN 
i CALL LINCHK (LUN,2) | 
WRITE(LUN,155) 1,DR_WD(1),VIDR_WD(1),VIDR_ID(I) 
539 = «155 FORMAT(’ °,18,'DR WD',11,124,28.8,/, ” 
540 1 140,"WRITE DATA',A1.' 1D',A1) 
541 ENDIF 


w 

Co 

Cone 
OOO 


OC 
0 
OC 
OC 
OC 
OC 
OC 
OC 
a 
OC 
OC 
OC 
OC 
OC 
oC 
0c 
OC 
0c 
0c 
0c 
oC 
oC 
OC 
00 
00 
00 


10 
spe: If-Sep-1984 10 O Foe RK SUMSRASTEN: FERE scecI0R780.FoR:1 2% 


CALL LINCHK (LUN,1) 


4 WRITE(LUN,180) DR_SL 

: 180 FORMAT! oT ,"DR°SL',124,28.8) 
8 
9 


FUSS 


0 

0 
035 CALL OUTPUT (LUN,DR_SL.V1DR_SL.0,0,14,'0") 
0959 FIELD = LIBSEXTZ2V(16,8,DR_SL) 
0561 IF (FIELD .NE. 0) THEN 
0368 CALL LINCHK (LUN,3) 
0565 WRITE(LUN,182) ('#',] = 9.32) 
0966 182 FORMAT(' §,140,33A1./,147,"FAR=END STATUS BYTE',/) 
0568 DO 186,1 = 0,4 
0569 
0570 FIELD1 = LIBSEXTZV(1,1, FIELD) 
057¢ IF (FIELD1 .NE. 0) THEN 
057% CALL LINCHK (LUN,1) 
0576 WRITE(LUN, 184) I 
0577 «(184 FORMAT(’ *°,140,"FAR-END DEVICE STATUS BIT ',11,". SET") 
0578 ENDIF 
0579 
0580 186 CONTINUE 
098¢ CALL OUTPUT (LUN,DR_SL,V2DR_SL,21,21,23,'0") 
0584 CALL LINCHK (LUN,1) 
0586 WRITE(LUN,188) ('#" J = 0,32) 
0587 3S s(«188 FORMAT(’ °,140,33A1) 
0588 ENDIF 
0589 
0590 + 
0591 «= ¢ DR780 SYSTEM BASE REGISTER 
099¢ C 

59 
0394 CALL LINCHK (LUN,2) 
0596 WRITE(LUN, 190) DR_SBR 
0597 =—s-:190 ORMAT(' °,78,"DR7SBR',124,78.8,/ 

398 1 140,"DR SYSTEM BASE REG (PHY ADDR)*) 

c 
: c DR780 GLOBAL BASE REGISTER 


CALL LINCHK (LUN,2) 


WRITE(LUN, 200) DR_GBR 
200 FORMAT(" *,18,"DR°GBR’,124,28.8./, 


B38 


"10 
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1 T40,"DR GLOBAL BASE REG (VIRT ADDR)') 


SEzSe 


WRITE(LUN,270) 1,DR_GPR(I) 
FORMAT(’ °,18,'DR 


270 18, 


280 CONTINUE 


R*,11,724,28.8) 


WN 


8 

oC 

1 c DR780 COMMAND BLOCK INFORMATION 0 
Osi CALL LINCHK (LUN,3) $6 
0615 : 00 
0616 WRITE (LUN, 215) 00 
0617 215 FORMAT(/* ",*DR CURRENT COMMAND BLOCK',/) 90 
0619 DO 220 1 = 1,3 00 
0620 00 
06 1 CALL LINCHK (LUN,2) 90 
06 § WRITE(LUN, 210) 1,DR_ CB(I) ,.VIDR CB(1) 00 
0624 210 FORMAT(' °,18,'DR CB',11,124,28.8./, 60 
06 > 1 T4O,A<COMPRESSC (V1DR_(B(15)>) 90 
0627 220 CONTINUE 00 
0628 00 
0629 «CC 00 
06 C DR780 BUFFER BLOCK INFORMATION 00 
0631 = ¢ 00 
063¢ 00 
063 CALL LINCHK (LUN,3) 00 
0634 00 
0635 WRITE (LUN, 225) 00 
0636 225 FORMAT(/* ",*DR CURRENT BUFFER BLOCK',/) 90 
0638 DO 250,1 = 1,3 00 
0639 00 
9640 CALL LINCHK (LUN,2) 00 
064 WRITE(LUN,240) 1,DR_BB(1),V1DR_BB(I) 
ek 240 FORMAT(’ ',18,"DR BB',11,124,28.8./, 
0644 1 T40,A<COMPRESSC (V1DR_6B(15)>) 
0646 250 CONTINUE 
0647 
0648 #C 
0649 «OC DR780 "GENERAL PURPOSE REGISTERS’ 
9650 ¢ 
0352 CALL LINCHK (LUN,3) 
er WRITE (LUN, 265) 
0655 265 FORMAT(/* *, "DR GENERAL PURPOSE REGISTERS',/) 
0657 DO 280,1 = 0,8 
$e26 CALL LINCHK (LUN,1) 


$20, - 
e 

g- =Sep 

CALL LINCHK (LUN,2) 

WRITE (LUN, 29 ) DR_GPR(9) 

FORMAT "DR™ Rd", 124,28.8,/, 

1 140, Coact” COUNT 

CALL LINCHK (LUN,2) 


WRITE (LUN, 300) a+ =GPRE10) 
te MA 


18,' 1',124,28.8,/ 
0676 1 140,'DD1 CONTROL Rea REGISTER'S 
0678 CALL LINCHK (LUN,2) 
0680 WRITE(LUN,310) DR_GPR(11) 
0681 310 FORMAT(' °,18,"DR7R12',124,78.8,/, 
068 1 140,"COPY OF STATE REGISTER’) 
0684 CALL LINCHK (LUN,2) 
0686 WRITECLUN, 320) DR -GPR(12) 
0687 320 FOR MAT(' °\18,"DR7R13',124,28.8,/, 
0688 1 140, fnasé OF ai REGISTER 0'5 
0690 CALL LINCHK (LUN,2) 
069 WRITECLUN, 330) DR_GPR(13) 
069 330 78,"DRR14',124,28.8,/, 

‘ ono Hee OF LS.SAV'S 


CALL LINCHK (LUN,2) 


0697 

0698 WRITE (LUN, <i A + a tithe! 

0699 340 FORMAT(* *,18,'°DR R15',124,28.8./, 
9700 1 140, teaches STATUS REGISTER’) 

4 call Linchk (lun,1) 

0704 . yritetiyn, os 

0705 345 format(' °,: 

0706 

R44 call orb$l_owner (lun,emb$l_dv_ownuic) 
0709 call ucb$l_char (lun,emb$l_dv_char) 
ort call ucb$w_sts (lun,emb$w_dv_sts) 

ab call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
Bota call ucb$w_errcnt (lun,emb$w_dv_errcnt) 
O71? if (emb$w_hd_entry .ne. 98) then 

$719 call Linchk (lun,1) 

b7e0 

0721 write(lun,345) 
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7 
f § call xfdriver_qio (lLun,emb$w_dv_ func) 
r 5 call irp$Sw bent (lun, emb$w_dv_bcnt) 
? call irp$Sw_boff (Lun,emb$w_dv_boff) 
8? ; call irp$l_pid (lun,emb$l_dv_raqpid) 
731 call irp$q_iosb (lun,emb$l_dv_iosb1) 
i § endif _— 
7 
7 RETURN 
0735 END 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 2486 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 1061 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 956 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
DR32 600 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 EMB 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 5615 
ENTRY POINTS 
Address Type Name 
0-00000000 DR780 
VARIABLES 
Address Type Name Address Type Name 
£-90000082 Ist DRICRS 2-0000009A fed DRIGER 
S-aeeeteee ISS Bee Sta iseeenaee Ise Be 
4-00000056 I*4 DR_UTL 4-00 Bis L*1 EMBSB_DV_CLASS 
4-00000010 L*1 EMBS$B_DV_ERTCNT 4-00000011 L*i EMBS$B_DV-ERTMAX 
4 3—E L*l EMBSB_DV_NAMLNG 4-00 ty L*1 EMBSB_DV_SLAVE 
4 1D L*l EMBSB_DV_TYPE 4-00 6 I*4 EMBSL_DV_CHAR 
& 12 I*4 EMBS$L_DV_10SB1 4- 4 16 I*4 EMBSL_DV_I0SB2 
4 $e 1*4 EMBSL_DV_MEDIA 4- 4E I*4 EMBSL_DV_NUMREG 
4 E I*4 EMBSL_DV_OPCNT 4- 0 I*4 EMBSL_DV_OWNUIC 
4 1E I*4 EMBSL_DV_ROPID 4- 0 I*4 EMBSL_HD_SID 
4 3F CHAR EMBST_DV_NAME 4- 024 I*2 EMBSW_DV_BCNT 
4 2 I*2 EMBSW_DV_BOFF 4- C I*2 EMBSW_DV_ERRCNT 
4- C I*2 EMBSW_DV_FUNC 4- A It2 EMBSW_DV_STS 
4 A I*2 EMBSW_DV_UNIT 4-00000004 I*2 EMBSW_HD_ENTRY 
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I1*2 EMBSW_HD_ERRSEQ -00000104 I*4 FIELD 
108 I*4 FIELOT $088 i$ R*4 FLOAT 
11 I*4 1 ~0000011 I*4 J 
AP @t*i LUN -O00000F5 CHAR SILO_DIR 
ARRAYS 
Address Type Name Bytes Dimensions 
2-000000E3 CHAR BYTE_COUNT (2) 
4 AA I*4 DR_BB 1 (3) 
4 A I*4 DR_BC (2) 
4 76 I*4 DR_CA (2) 
4-O000009E I*4 DR_ 1 (3) 
4-000000B6 I*4 DR_GPR 64 i 
4-0000005A I*4 DR_WCS 12 (3) 
4-Q000007E I*4 DR wD 20 (5) 
4 L*1 €EMB 512 (0:511) 
4-00000052 I*4 EMBSL_DV_REGSAV 420 (0:104) 
I*4 EMBSQ_HD_TIME ; t¢} 
Faw siss'id be CHAR V1DR_6B 93 (3) 
1F8 CHAR VIDR_CB 96 (3) 
¢- CHAR V1DR_ID g (6) 
CHAR V1DR~SL 345 (0:14) 
CHAR VIDR_UTL 10 (11:11) 
34 CHAR V1DR_ 6 (6) 
-00000159 CHAR V2DR_SL 66 (21:23) 
A CHAR V2DR_UTL 217) (25:31) 
LABELS 
Address’ Label Address’ Label Address’ Label Address’ Label Address’ Label Address’ Label 
1-00000040 25° 1-00000053 26° 1 ms 4's 4th ie 1-000000A1 30° shel 40 1-000000B6 50° 
1-000000C8 65° 1-000000DC 70° 1-000000F1 80° 100 1-00000117 120° el 150 
1-0000016D 155° ee 160 ee 165 1-00000199 180° 1-000001AB 182° 1-Q00001CE 184° 
ee 186 1-000001F9 188° 1-00000203 190° 1-00000238 sen 4's 4 0324 210° e's 443 215° 
ee 220 1=000002AB 225° 1-000002CA 240° §? 444 4 $82: 1-00000308 eff 
ee 80 1-0000031 90° 1-0000033F 300° 100000370 10° 1-0000039E 320° 1-000003CD 330° 
1-000003F3 340° 1-0000042 45° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
1*4 COMPRESSC 1*4 COMPRESSF DHEAD DR780_REGA FRCTOF IR°S$L_PID 
IRP$Q_J0SB IRP$W_BCNT RPSU. BOF F I1*4 LIBSERTZV LINCHK ORBSL oovaek 
SB1_ COMMAND UCBSL_CHAR UCBSL_OPCNT UCBSW_ERRCNT UCBSW_S 


OU 
XFDRIVER_Q10 


Subroutine XFDRIVER_Q10 (lun,emb$w_dv_ func) 


include ‘src$:qiocommon.for /nolist’ 


oO 


Se5eese5 


— 


byte Lun 
integer*2 emb$w_dv_ func 


integer*4 qiocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
qiocode(1,01) = Zloc(io$_loadmcode) 
qiocode(1,06) = Zloc(io$_startdatap) 
qiocode(1,56) = X%loc(io$_startdata) 
do 10,i = 0,63 

qiocode(0,i) = 33 


BESSISSEASES Ia NN 


1 
4 if (qiocode(1,i) .eq. 0) then 
94 qiocode(1,i) = Zloc(qio_string) 
5 endif 
96 
10 continue 
endif 


Sse 


call irp$w_func (lun,emb$w_dv_ func, 
1 qiocode(0, LibSextzv(0,6,emb$w_dv_func))) 


SOOCSOSOCOSOOOSOSOSOSOOSOSOOSOOOOOOCOOOOOOOOOOoO 


301 

i 

30 return 
304 

305 end 
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FOR;1 


SRCJDR780. 


teat73é 


VAX=11 FORTRAN 
DISKSVMSMASTER 


5 
6 


73:$3:5 


4 
4 


1h-Sep-1 
~3007138 


CHAR 10$ 
CHAR 10$ 
CHAR 10$ 
CHAR 10$ 
CHAR 10$ 
CHAR I0$ 
CHAR 10$ 
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Address Type Name 
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Attributes 


Bytes 


ACPCONTROL 


id DV _FUNC 
ABorT 
CLEAN 
DEACCESS 
DIAGNOSE 
DSE 
FORMAT 
LOADMCODE 


XFDRIVER_Q10 


CHAR 10$ 
CHAR 10$ 
CHAR 10S 
CHAR 10$ 
6 CHAR I10$ 
14 CHAR 10$ 


c8 CHAR 10$ 


| 


4 


-000003C 
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Vv 
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Qe 
Vv 
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a 
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Address Type Name 
Address Type Name 


AP-000000088 I*2 EMBS 
-0000026D CHAR 10$ 


XFDRIVER_Q10 
PROGRAM SECTIONS 
ENTRY POINTS 
VARIABLES 
-0000029 


TARTMPROC 


SPACEF ILE 
STARTDATA 
T 


$_S 
$s 


CHAR 10$ 
CHAR 108 


222922 


? 
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-Sep-1 DISKSVM RF .SRCJDR780.FOR;1 

~Q000017E CHAR 1O$_WRITETRACKD - CHAR 10$ WRITEVBLK 001 

37308882 Hh CHAR 10s" RI TEWTHBUF 39000008" CHAR 10$"WR O( 
AP-000000048 L -000004A1 CHAR QI0- eFRING. 

ARRAYS 09 

Address Type Name Bytes Dimensions 4 

2-00000000 1*4 QIOCODE 512 (0:1, 0:63) 09 

LABELS 09 

Address Label 86" 

ee 10 oy. 

00' 

FUNCTIONS AND SUBROUTINES REFERENCED Bo! 

Type Name Type Name 00, 

IRP$wW_FUNC I*4 LIBSEXTZV 00, 

{ 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:DR780/0BJ=0BJ$:DR780 MSRC$:DR780 
/ CHE CK=(NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOL § TRAC EBA ck) 
/F77 /NOG_FLOATING /14 GOPTIATIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 8.91 seconds 
Elapsed Time: 19.95 seconds 
Page Faults: so 

Dynamic Memory: 6 pages 


PMENT CORPORATION 
.AND PROPRIETARY 
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